home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1987 March & April / rerun-1987-03-04.d64 / pick a letter (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  3KB  |  81 lines
  1. 10 dimd$(24):d$(0)=chr$(19):forx=1to24:d$(x)=d$(x-1)+chr$(17):next
  2. 20 forx=54272to54295:pokex,0:next:poke54296,15
  3. 30 printchr$(147):poke53280,6:poke53281,6:poke646,1
  4. 40 printd$(6)tab(5)"pppp iiii cccc k  k      aaaa"
  5. 50 printtab(5)"p  p   i  c    k k       a  a"
  6. 60 printtab(5)"pppp   i  c    kk        aaaa"
  7. 70 printtab(5)"p      i  c    k k       a  a"
  8. 80 printtab(5)"p    iiii cccc k  k      a  a"
  9. 90 printd$(15)tab(5)"l    eeee tttt tttt eeee rrrr"
  10. 100 printtab(5)"l    e      t    t  e    r  r"
  11. 110 printtab(5)"l    eee    t    t  eee  rrrr"
  12. 120 printtab(5)"l    e      t    t  e    r r"
  13. 130 printtab(5)"llll eeee   t    t  eeee r  r"
  14. 140 forx=1064to1103:pokex,90:pokex+54272,1:next
  15. 150 forx=1143to2023step40:pokex,90:pokex+54272,1:next
  16. 160 forx=2022to1984step-1:pokex,90:pokex+54272,1:next
  17. 170 forx=1944to1104step-40:pokex,90:pokex+54272,1:next
  18. 180 forx=1to5:poke53280,2:poke53281,2:forde=1to200:next
  19. 190 poke53280,6:poke53281,6:forde=1to200:next:next:forde=1to500:next
  20. 200 pa$="press fire button to play again"
  21. 210 forx=1to10:readan$(x),cl$(x):next:pp(1)=1436:forx=2to9:pp(x)=pp(x-1)+2:next
  22. 220 forx=1to10:an(x)=0:next:le=0:sc=0:poke53280,3:poke53281,3
  23. 230 printchr$(147):le=le+1:ifle=11then640
  24. 240 f2=0:forx=1064to1103:pokex,160:pokex+54272,2:next
  25. 250 forx=1143to2023step40:pokex,160:pokex+54272,2:next
  26. 260 forx=2022to1984step-1:pokex,160:pokex+54272,2:next
  27. 270 forx=1944to1104step-40:pokex,160:pokex+54272,2:next
  28. 280 forx=1355to1373:pokex,160:pokex+54272,2:next:forx=1395to1413step2
  29. 290 pokex,160:pokex+54272,2:next:forx=1435to1453step2:pokex,160:pokex+54272,2
  30. 300 next:forx=1475to1493:pokex,160:pokex+54272,2:next
  31. 310 forx=1to9:pokepp(x)+54272,1:next:forx=1630to1657:pokex,160:pokex+54272,2
  32. 320 next:poke1670,160:poke1670+54272,2:poke1697,160:poke1697+54272,2
  33. 330 poke1710,160:poke1710+54272,2:poke1737,160:poke1737+54272,2
  34. 340 forx=1750to1777:pokex,160:pokex+54272,2:next:forx=1711to1736
  35. 350 pokex+54272,1:next:poke646,6:printd$(9)tab(12)"123454321"
  36. 360 printd$(16)tab(7)"abcdefghijklmnopqrstuvwxyz":printd$(23)tab(17)sc
  37. 370 rn=int(rnd(1)*10)+1:ifan(rn)=1then370
  38. 380 an(rn)=1:y=len(an$(rn)):z=len(cl$(rn)):t$="":forx=1toy:t$=t$+"-":next
  39. 390 printd$(3)tab((40-z)/2)cl$(rn):printd$(5)tab((40-y)/2)t$
  40. 400 n=int(rnd(1)*9)+1:pokepp(n),81:forde=1to100:next
  41. 410 fb=-((peek(56320)and16)=0):iffb=0thenpokepp(n),32:goto400
  42. 420 fb=-((peek(56320)and16)=0):iffb=1then420
  43. 430 ap=1711:pokeap,30:f1=0:lv=peek(pp(n)-40)-48
  44. 440 forde=1to100:next:fb=-((peek(56320)and16)=0):iffb=1then500
  45. 450 js=peek(56320)and15:ifjs=11thendi=-1:goto480
  46. 460 ifjs=7thendi=1:goto480
  47. 470 goto440
  48. 480 ifpeek(ap+di)=160then440
  49. 490 pokeap,32:ap=ap+di:pokeap,30:goto440
  50. 500 ifpeek(ap-40)=32then440
  51. 510 l$=chr$(peek(ap-40)+64):forx=1toy:ifl$<>mid$(an$(rn),x,1)then550
  52. 520 f1=1:t$=left$(t$,x-1)+l$+mid$(t$,x+1):printd$(5)tab((40-y)/2)t$:sc=sc+lv
  53. 530 printd$(23)tab(17)sc:poke54277,15:poke54272,70:poke54273,100:poke54276,33
  54. 540 forde=1to75:next:poke54276,32:ift$=an$(rn)then570
  55. 550 next:iff1=1then570
  56. 560 f2=1:poke54277,45:poke54272,20:poke54273,5:poke54276,33:forde=1to150:next
  57. 570 poke54276,32:pokeap,32:pokeap-40,32:pokepp(n),32:ift$<>an$(rn)then400
  58. 580 iff2=1then610
  59. 590 sc=sc+10:printd$(23)tab(17)sc:forq=1to2:poke53280,14:forde=1to100:next
  60. 600 poke53280,13:forde=1to100:next:poke53280,3:forde=1to100:next:next
  61. 610 printd$(24)tab(11)"press fire button";:forde=1to50:next
  62. 620 fb=-((peek(56320)and16)=0):iffb=1then230
  63. 630 printd$(24)tab(11)"                 ";:forde=1to50:next:goto610
  64. 640 forde=1to1000:next:printchr$(147):poke53280,9:poke53281,8:poke646,7
  65. 650 printd$(9)tab(15)"game over":printd$(12)tab(12)"final score:"sc
  66. 660 ifsc>hsthenhs=sc
  67. 670 printtab(13)"high score:"hs
  68. 680 printd$(16)tab(4)pa$:forde=1to50:next:poke646,1:printd$(16)tab(4)pa$
  69. 690 forde=1to50:next:fb=-((peek(56320)and16)=0):iffb=1then220
  70. 700 poke646,7:goto680
  71. 710 data laudable,praiseworthy
  72. 720 data perforate,to pierce with holes in rows
  73. 730 data viscid,sticky or adhesive
  74. 740 data penurious,stingy
  75. 750 data ridiculous,absurd
  76. 760 data distraught,worried
  77. 770 data probe,investigate or examine
  78. 780 data taut,tight
  79. 790 data hazardous,dangerous
  80. 800 data tolerate,endure
  81.